home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / child1a.frm < prev    next >
Text File  |  1993-07-22  |  4KB  |  142 lines
  1. VERSION 2.00
  2. Begin Form MDIChild1A 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "COGNITIVE / PERCEPTUAL PATTERN"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   30
  7.    ClientTop       =   1575
  8.    ClientWidth     =   9360
  9.    Height          =   4425
  10.    Left            =   -30
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   9360
  15.    Top             =   1230
  16.    Width           =   9480
  17.    Begin VBedit BEdit1A 
  18.       CellHeight      =   500
  19.       CellWidth       =   500
  20.       CombBaseLine    =   500
  21.       CombEndHeight   =   360
  22.       CombEndMarker   =   0   'False
  23.       CombHeight      =   270
  24.       FontBold        =   0   'False
  25.       FontItalic      =   0   'False
  26.       FontName        =   "Arial"
  27.       FontSize        =   24
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       Height          =   855
  31.       InflateBottom   =   180
  32.       InflateLeft     =   180
  33.       InflateRight    =   180
  34.       InflateTop      =   240
  35.       Left            =   960
  36.       TabIndex        =   4
  37.       Top             =   0
  38.       Version         =   268435458
  39.       Width           =   7695
  40.    End
  41.    Begin AniPushButton AniButton3A 
  42.       BackColor       =   &H00C0C0C0&
  43.       Cycle           =   2  '2-state 1/2 & 1/2
  44.       Height          =   480
  45.       Left            =   8880
  46.       PictDrawMode    =   1  'Autosize control
  47.       Picture         =   CHILD1A.FRX:0000
  48.       TabIndex        =   3
  49.       Top             =   120
  50.       Width           =   480
  51.    End
  52.    Begin VHedit HEdit1A 
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "Arial"
  56.       FontSize        =   24
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   540
  60.       InflateBottom   =   270
  61.       InflateLeft     =   270
  62.       InflateRight    =   270
  63.       InflateTop      =   270
  64.       Left            =   8760
  65.       TabIndex        =   2
  66.       Top             =   720
  67.       Version         =   268435458
  68.       Visible         =   0   'False
  69.       Width           =   495
  70.    End
  71.    Begin ListBox List1 
  72.       BackColor       =   &H00FF0000&
  73.       FontBold        =   -1  'True
  74.       FontItalic      =   0   'False
  75.       FontName        =   "Arial"
  76.       FontSize        =   12
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       ForeColor       =   &H00FFFFFF&
  80.       Height          =   3165
  81.       Index           =   1
  82.       Left            =   4680
  83.       TabIndex        =   1
  84.       Top             =   1080
  85.       Width           =   4815
  86.    End
  87.    Begin ListBox List1 
  88.       BackColor       =   &H00FF0000&
  89.       FontBold        =   -1  'True
  90.       FontItalic      =   0   'False
  91.       FontName        =   "Arial"
  92.       FontSize        =   12
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       ForeColor       =   &H00FFFFFF&
  96.       Height          =   3165
  97.       Index           =   0
  98.       Left            =   0
  99.       TabIndex        =   0
  100.       Top             =   1080
  101.       Width           =   4695
  102.    End
  103. End
  104. Sub AniButton3A_Click ()
  105.  
  106. Select Case anibutton3A.Value
  107.     Case 2
  108.         editswap bedit1A, hedit1A, 1
  109.         hedit1A.Visible = -1
  110.         bedit1A.Visible = 0
  111.         appendflag1 = -1
  112.  
  113.     Case 1
  114.         editswap bedit1A, hedit1A, 2
  115.         hedit1A.Visible = 0
  116.         bedit1A.Visible = -1
  117.         appendflag1 = 0
  118. End Select
  119.  
  120. End Sub
  121.  
  122. Sub List1_Click (Index As Integer)
  123. If appendflag1 Then
  124.         Select Case Index
  125.         Case 0
  126.         LIST1(1).AddItem LIST1(0).List(LIST1(0).ListIndex) + "  " + bedit1A.Text
  127.         Case 1
  128.         LIST1(1).RemoveItem LIST1(1).ListIndex
  129.         End Select
  130. Else
  131.  
  132.         Select Case Index
  133.         Case 0
  134.         LIST1(1).AddItem LIST1(0).List(LIST1(0).ListIndex)
  135.         Case 1
  136.         LIST1(1).RemoveItem LIST1(1).ListIndex
  137.         End Select
  138. End If
  139.  
  140. End Sub
  141.  
  142.